home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / TUTOR151.ZIP / INTERNT.MOD (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-06-08  |  15KB  |  519 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.     String   STRING005
  24.     String   STRING006
  25.     String   STRING007
  26.     Declare  Function FUNCTION001() String
  27.  
  28. ;------------------------------------------------------------------------------
  29.  
  30.     FOpen 1, PPEPath() + "TUTOR.CFG", 0, 0
  31.     FGet 1, STRING001
  32.     FGet 1, STRING002
  33.     FGet 1, STRING004
  34.     FGet 1, STRING003
  35.     FGet 1, STRING005
  36.     FCloseAll
  37.     Select Case (STRING005)
  38.         Case "YES"
  39.             Goto LABEL002
  40.         Case "NO"
  41.     End Select
  42.     :LABEL001
  43.     AnsiPos 1, 4
  44.     PrintLn "@X70│                 @X70│@X01  @X17║@X3B@X01░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X17║@X07"
  45.     AnsiPos 1, 5
  46.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07@X40┌──────────────────────────────────────────────────@X4C┐@X37@X01░░@X17║@X07"
  47.     AnsiPos 1, 6
  48.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07@X40│                                                  @X4C│@X01░░@X17║@X07"
  49.     AnsiPos 1, 7
  50.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07@X40│                                                  @X4C│@X01░░@X17║@X07"
  51.     AnsiPos 1, 8
  52.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07@X40│                                                  @X4C│@X01░░@X17║@X07"
  53.     AnsiPos 1, 9
  54.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07@X40│                                                  @X4C│@X01░░@X17║@X07"
  55.     AnsiPos 1, 10
  56.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07@X40│@X4FWe are sorry but, this area of the tutorial is @X4Enot@X4C│@X01░░@X17║@X07"
  57.     AnsiPos 1, 11
  58.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07@X40│  @X4Fcurrently available because INTERNET @X4A(@X4BE-mail@X4A)   @X4C│@X01░░@X17║@X07"
  59.     AnsiPos 1, 12
  60.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07@X40│  @X4Fis not available on this system at this time.   @X4C│@X01░░@X17║@X07"
  61.     AnsiPos 1, 13
  62.     PrintLn "@X70│                 │@X01  @X17║@X01░░@X07@X40│                                                  @X4C│@X01░░@X17║@X07"
  63.     AnsiPos 1, 14
  64.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07@X40│                                                  @X4C│@X01░░@X17║@X07"
  65.     AnsiPos 1, 15
  66.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07@X40│                                                  @X4C│@X01░░@X17║@X07"
  67.     AnsiPos 1, 16
  68.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07@X40│                                                  @X4C│@X01░░@X17║@X07"
  69.     AnsiPos 1, 17
  70.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07@X40│                                                  @X4C│@X01░░@X17║@X07"
  71.     AnsiPos 1, 18
  72.     PrintLn "@X70│                 @X70│@X0F  @X17║@X01░░@X07@X40│                                                  @X4C│@X01░░@X17║@X07"
  73.     AnsiPos 1, 19
  74.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X40└@X4C──────────────────────────────────────────────────┘@X01░░@X17║@X07"
  75.     AnsiPos 1, 20
  76.     PrintLn "@X70│                 │@X01  @X17║@X01░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X17║@X07"
  77.     AnsiPos 1, 21
  78.     PrintLn "@X70└──── Options ────┘@X01  @X17╚════════════════════════════════════════════════════════╝@X07"
  79.     AnsiPos 1, 22
  80.     PrintLn "                                                            "
  81.     AnsiPos 1, 22
  82.     Wait
  83.     Goto LABEL009
  84.     :LABEL002
  85.     AnsiPos 1, 4
  86.     PrintLn "@X70│ @X6F @X60(@X6FM@X60)@X67ain Menu @X6F @X78▄ @X70│@X01  @X17║@X05░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X17║@X07"
  87.     AnsiPos 1, 5
  88.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X09@X05░░@X0D┌──────────────────────────────────────────────────┐@X05░░@X17║@X07"
  89.     AnsiPos 1, 6
  90.     PrintLn "@X70│                 @X70│@X01  @X17║@X09@X05░░@X0D│@X4F                     INTERNET                     @X0D│@X05░░@X17║@X07"
  91.     AnsiPos 1, 7
  92.     PrintLn "@X70│                 @X70│@X01  @X17║@X09@X05░░@X0D│                                                  │@X05░░@X17║@X07"
  93.     AnsiPos 1, 8
  94.     PrintLn "@X70│                 @X70│@X01  @X17║@X05░░@X0D│   @X0C[@X0E1@X0C] @X0FWhat is the Internet?                      @X0D│@X05░░@X17║@X07"
  95.     AnsiPos 1, 9
  96.     PrintLn "@X70│                 @X70│@X01  @X17║@X05░░@X0D│   @X0C[@X0E2@X0C] @X0FHow do I address an Internet message?      @X0D│@X05░░@X17║@X07"
  97.     AnsiPos 1, 10
  98.     PrintLn "@X70│                 @X70│@X01  @X17║@X05░░@X0D│   @X0C[@X0E3@X0C] @X0FHow to send e-mail to CompuServe.          @X0D│@X05░░@X17║@X07"
  99.     AnsiPos 1, 11
  100.     PrintLn "@X70│                 @X70│@X01  @X17║@X05░░@X0D│   @X0C[@X0E4@X0C] @X0FHow to send e-mail to AT&T mail.           @X0D│@X05░░@X17║@X07"
  101.     AnsiPos 1, 12
  102.     PrintLn "@X70│                 @X70│@X01  @X17║@X05░░@X0D│   @X0C[@X0E5@X0C] @X0FSending mail to FIDONET.                   @X0D│@X05░░@X17║@X07"
  103.     AnsiPos 1, 13
  104.     PrintLn "@X70│                 │@X01  @X17║@X05░░@X0D│                                                  @X0D│@X05░░@X17║@X07"
  105.     AnsiPos 1, 14
  106.     PrintLn "@X70│                 @X70│@X01  @X17║@X05░░@X0D│                                                  @X0D│@X05░░@X17║@X07"
  107.     AnsiPos 1, 15
  108.     PrintLn "@X70│                 @X70│@X01  @X17║@X05░░@X0D│                                                  @X0D│@X05░░@X17║@X07"
  109.     AnsiPos 1, 16
  110.     PrintLn "@X70│                 @X70│@X01  @X17║@X05░░@X0D│                                                  @X0D│@X05░░@X17║@X07"
  111.     AnsiPos 1, 17
  112.     PrintLn "@X70│                 @X70│@X01  @X17║@X05░░@X0D│                                                  @X0D│@X05░░@X17║@X07"
  113.     AnsiPos 1, 18
  114.     PrintLn "@X70│                 @X70│@X0F  @X17║@X05░░@X0D│                                                  @X0D│@X05░░@X17║@X07"
  115.     AnsiPos 1, 19
  116.     PrintLn "@X70│                 @X70│@X01  @X17║@X05░░@X0D└──────────────────────────────────────────────────┘@X05░░@X17║@X07"
  117.     AnsiPos 1, 20
  118.     PrintLn "@X70│                 │@X01  @X17║@X0B@X05░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X17║@X07"
  119.     AnsiPos 1, 21
  120.     PrintLn "@X70└──── Options ────┘@X01  @X17╚════════════════════════════════════════════════════════╝@X07"
  121.     AnsiPos 1, 22
  122.     PrintLn "                                                            "
  123.     AnsiPos 1, 22
  124.     STRING006 = " "
  125.     While (Upper(STRING006) <> "E") Do
  126.         STRING006 = FUNCTION001()
  127.         If (STRING006 == "END") Goto LABEL009
  128.         If (STRING006 == Chr(13)) Gosub LABEL008
  129.         If (Upper(STRING006) == "1") Then
  130.             Goto LABEL003
  131.             Continue
  132.         Endif
  133.         If (Upper(STRING006) == "2") Then
  134.             Goto LABEL006
  135.             Continue
  136.         Endif
  137.         If (Upper(STRING006) == "3") Then
  138.             Goto LABEL004
  139.             Continue
  140.         Endif
  141.         If (Upper(STRING006) == "4") Then
  142.             Goto LABEL005
  143.             Continue
  144.         Endif
  145.         If (Upper(STRING006) == "5") Then
  146.             Goto LABEL007
  147.             Continue
  148.         Endif
  149.         If (Upper(STRING006) == "M") Then
  150.             Goto LABEL009
  151.             Continue
  152.         Endif
  153.         If ((Upper(STRING006) == "E") || (Upper(STRING006) == "e")) Then
  154.             Goto LABEL009
  155.         Endif
  156.     EndWhile
  157.     End
  158.  
  159. ;------------------------------------------------------------------------------
  160.  
  161.     Function FUNCTION001() String
  162.  
  163.     While (FUNCTION001 == "") Do
  164.         FUNCTION001 = Inkey()
  165.     EndWhile
  166.  
  167.     EndFunc
  168.  
  169.     :LABEL003
  170.     AnsiPos 1, 4
  171.     PrintLn "@X0F@X70└─  @X7F100% Viewed  @X70─┘@X07  @X17║ @X0A @X0EWhat is the Internet?                                @X17 ║@X07"
  172.     AnsiPos 1, 5
  173.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  174.     AnsiPos 1, 6
  175.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  176.     AnsiPos 1, 7
  177.     PrintLn "@X17║ @X07│ @X0FThe Internet is a broad `@X0Bnetwork of networks@X0F' that ties together a      @X07│@X17 ║@X07"
  178.     AnsiPos 1, 8
  179.     PrintLn "@X17║ @X07│ @X0Fvariety of computers from around the world.                             @X07@X07│@X17 ║@X07"
  180.     AnsiPos 1, 9
  181.     PrintLn "@X17║ @X07│ @X0FInternet hosts are tied together using high speed communication lines.  @X07│@X17 ║@X07"
  182.     AnsiPos 1, 10
  183.     PrintLn "@X17║ @X07│ @X0FSystems consist of `UNIX' systems, IBM Mainframes, DEC VAXes, PC's and  @X07│@X17 ║@X07"
  184.     AnsiPos 1, 11
  185.     PrintLn "@X17║ @X07│ @X0Fmany other types.                                                       @X07│@X17 ║@X07"
  186.     AnsiPos 1, 12
  187.     PrintLn "@X17║ @X07│ @X0FThese systems are run by universities, business, government agencies    @X07│@X17 ║@X07"
  188.     AnsiPos 1, 13
  189.     PrintLn "@X17║ @X07│ @X0Fand many other individuals.                                             @X07│@X17 ║@X07"
  190.     AnsiPos 1, 14
  191.     PrintLn "@X17║ @X07│ @X0F                                                                        @X07│@X17 ║@X07"
  192.     AnsiPos 1, 15
  193.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  194.     AnsiPos 1, 16
  195.     PrintLn "@X17║ @X07│ @X0F                                                                        @X07│@X17 ║@X07"
  196.     AnsiPos 1, 17
  197.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  198.     AnsiPos 1, 18
  199.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  200.     AnsiPos 1, 19
  201.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  202.     AnsiPos 1, 20
  203.     PrintLn "@X17║ @X07└─────────────────────────────────────────────────────────────────────────┘@X17 ║@X07"
  204.     AnsiPos 1, 21
  205.     PrintLn "@X17╚═════════════════════════════════════════════════════════════════════════════╝@X07"
  206.     AnsiPos 1, 22
  207.     PrintLn "                                                            "
  208.     AnsiPos 1, 22
  209.     Wait
  210.     Goto LABEL002
  211.     :LABEL004
  212.     AnsiPos 1, 4
  213.     PrintLn "@X0F@X70└─  @X7F100% Viewed  @X70─┘@X07  @X17║ @X0A @X0ESending E-mail to CompuServe                         @X17 ║@X07"
  214.     AnsiPos 1, 5
  215.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  216.     AnsiPos 1, 6
  217.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  218.     AnsiPos 1, 7
  219.     PrintLn "@X17║ @X07│ @X0FTo send a message to CompuServe ID#: 71234,567                          @X07│@X17 ║@X07"
  220.     AnsiPos 1, 8
  221.     PrintLn "@X17║ @X07│ @X0FAddress your message: `@X0ATO: 71234.567@compuserve.com@X0F'                    @X07@X07│@X17 ║@X07"
  222.     AnsiPos 1, 9
  223.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  224.     AnsiPos 1, 10
  225.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  226.     AnsiPos 1, 11
  227.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  228.     AnsiPos 1, 12
  229.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  230.     AnsiPos 1, 13
  231.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  232.     AnsiPos 1, 14
  233.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  234.     AnsiPos 1, 15
  235.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  236.     AnsiPos 1, 16
  237.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  238.     AnsiPos 1, 17
  239.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  240.     AnsiPos 1, 18
  241.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  242.     AnsiPos 1, 19
  243.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  244.     AnsiPos 1, 20
  245.     PrintLn "@X17║ @X07└─────────────────────────────────────────────────────────────────────────┘@X17 ║@X07"
  246.     AnsiPos 1, 21
  247.     PrintLn "@X17╚═════════════════════════════════════════════════════════════════════════════╝@X07"
  248.     AnsiPos 1, 22
  249.     PrintLn "                                                            "
  250.     AnsiPos 1, 22
  251.     Wait
  252.     Goto LABEL002
  253.     :LABEL005
  254.     AnsiPos 1, 4
  255.     PrintLn "@X0F@X70└─  @X7F100% Viewed  @X70─┘@X07  @X17║ @X0A @X0ESending E-mail to AT&T Mail                          @X17 ║@X07"
  256.     AnsiPos 1, 5
  257.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  258.     AnsiPos 1, 6
  259.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  260.     AnsiPos 1, 7
  261.     PrintLn "@X17║ @X07│ @X0FTo send to AT&T Mail user: !EQUINOX                                     @X07│@X17 ║@X07"
  262.     AnsiPos 1, 8
  263.     PrintLn "@X17║ @X07│ @X0FAddress your message to: @X0A`TO: equinox@attmail.com'                      @X07│@X17 ║@X07"
  264.     AnsiPos 1, 9
  265.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  266.     AnsiPos 1, 10
  267.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  268.     AnsiPos 1, 11
  269.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  270.     AnsiPos 1, 12
  271.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  272.     AnsiPos 1, 13
  273.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  274.     AnsiPos 1, 14
  275.     PrintLn "@X17║ @X07│ @X0F                                                                        @X07│@X17 ║@X07"
  276.     AnsiPos 1, 15
  277.     PrintLn "@X17║ @X07│ @X0F                                                                        @X07│@X17 ║@X07"
  278.     AnsiPos 1, 16
  279.     PrintLn "@X17║ @X07│ @X0F                                                                        @X07│@X17 ║@X07"
  280.     AnsiPos 1, 17
  281.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  282.     AnsiPos 1, 18
  283.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  284.     AnsiPos 1, 19
  285.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  286.     AnsiPos 1, 20
  287.     PrintLn "@X17║ @X07└─────────────────────────────────────────────────────────────────────────┘@X17 ║@X07"
  288.     AnsiPos 1, 21
  289.     PrintLn "@X17╚═════════════════════════════════════════════════════════════════════════════╝@X07"
  290.     AnsiPos 1, 22
  291.     PrintLn "                                                            "
  292.     AnsiPos 1, 22
  293.     Wait
  294.     Goto LABEL002
  295.     :LABEL006
  296.     AnsiPos 1, 4
  297.     PrintLn "@X0F@X70└─  @X7F 50% Viewed  @X70─┘@X07  @X17║ @X0A @X0EAddressing Internet messages                         @X17 ║@X07"
  298.     AnsiPos 1, 5
  299.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  300.     AnsiPos 1, 6
  301.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  302.     AnsiPos 1, 7
  303.     PrintLn "@X17║ @X07│ @X0FA normal Internet address id is in the format: userid@system.domain     @X07│@X17 ║@X07"
  304.     AnsiPos 1, 8
  305.     PrintLn "@X17║ @X07│@X0F @X0DFor Example:  @X0Fjohn.smith@equinoxbbs.com                                 @X07@X07│@X17 ║@X07"
  306.     AnsiPos 1, 9
  307.     PrintLn "@X17║ @X07│@X0F                                                                         @X07│@X17 ║@X07"
  308.     AnsiPos 1, 10
  309.     PrintLn "@X17║ @X07│@X0F These addresses are normally CaSe SeNSiTIve. @X0CDon't! @X0Fcapitalize lower    @X07│@X17 ║@X07"
  310.     AnsiPos 1, 11
  311.     PrintLn "@X17║ @X07│@X0F case or use lower case for capitals.  Your message may not get through. @X07│@X17 ║@X07"
  312.     AnsiPos 1, 12
  313.     PrintLn "@X17║ @X07│@X0F                                                                         @X07│@X17 ║@X07"
  314.     AnsiPos 1, 13
  315.     PrintLn "@X17║ @X07│@X0F In order to send an Internet message you must first know the address of @X07│@X17 ║@X07"
  316.     AnsiPos 1, 14
  317.     PrintLn "@X17║ @X07│ @X0Fperson to whom your are writing to.                                     @X07│@X17 ║@X07"
  318.     AnsiPos 1, 15
  319.     PrintLn "@X17║ @X07│ @X0FOnce you have there address you simply enter it in the `@X0ATO:@X0F' field of   @X07│@X17 ║@X07"
  320.     AnsiPos 1, 16
  321.     PrintLn "@X17║ @X07│ @X0Fthe message.                                                            @X07│@X17 ║@X07"
  322.     AnsiPos 1, 17
  323.     PrintLn "@X17║ @X07│ @X0F                                                                        @X07│@X17 ║@X07"
  324.     AnsiPos 1, 18
  325.     PrintLn "@X17║ @X07│ @X0FThats all there is to it!                                               @X07│@X17 ║@X07"
  326.     AnsiPos 1, 19
  327.     PrintLn "@X17║ @X07│ @X0F                                                                        @X07│@X17 ║@X07"
  328.     AnsiPos 1, 20
  329.     PrintLn "@X17║ @X07└─────────────────────────────────────────────────────────────────────────┘@X17 ║@X07"
  330.     AnsiPos 1, 21
  331.     PrintLn "@X17╚═════════════════════════════════════════════════════════════════════════════╝@X07"
  332.     AnsiPos 1, 22
  333.     PrintLn "                                                            "
  334.     AnsiPos 1, 22
  335.     Wait
  336.     AnsiPos 1, 4
  337.     PrintLn "@X0F@X70└─  @X7F100% Viewed  @X70─┘@X07  @X17║ @X0A @X0EAddressing Internet messages                         @X17 ║@X07"
  338.     AnsiPos 1, 5
  339.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  340.     AnsiPos 1, 6
  341.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  342.     AnsiPos 1, 7
  343.     PrintLn "@X17║ @X07│ @X0BWhere do I get Internet addresses?                                      @X07│@X17 ║@X07"
  344.     AnsiPos 1, 8
  345.     PrintLn "@X17║ @X07│ @X0FLets say you want to reply to a message in a USENET conference          @X07@X07│@X17 ║@X07"
  346.     AnsiPos 1, 9
  347.     PrintLn "@X17║ @X07│ @X0Fprivately. In other words, you only want it to go to one person not     @X07│@X17 ║@X07"
  348.     AnsiPos 1, 10
  349.     PrintLn "@X17║ @X07│ @X0Feveryone in the conference.                                             @X07│@X17 ║@X07"
  350.     AnsiPos 1, 11
  351.     PrintLn "@X17║ @X07│ @X0FThe first step is to make note of who the person is.                    @X07│@X17 ║@X07"
  352.     AnsiPos 1, 12
  353.     PrintLn "@X17║ @X07│ @X0F                                                                        @X07│@X17 ║@X07"
  354.     AnsiPos 1, 13
  355.     PrintLn "@X17║ @X07│ @X0F@X0DFor Example:                                                            @X07│@X17 ║@X07"
  356.     AnsiPos 1, 14
  357.     PrintLn "@X17║ @X07│ @X0AFrom:  b.clinton@whitehouse.gov (Bill Clinton)                          @X07│@X17 ║@X07"
  358.     AnsiPos 1, 15
  359.     PrintLn "@X17║ @X07│ @X0FThe (Bill Clinton) is just an item to tell you the `english' name of    @X07│@X17 ║@X07"
  360.     AnsiPos 1, 16
  361.     PrintLn "@X17║ @X07│ @X0Fperson.  b.clinton is the users id on the system.  Whitehouse is the    @X07│@X17 ║@X07"
  362.     AnsiPos 1, 17
  363.     PrintLn "@X17║ @X07│ @X0Fname of the computer were this user gets mail.  gov is the `domain` or  @X07│@X17 ║@X07"
  364.     AnsiPos 1, 18
  365.     PrintLn "@X17║ @X07│ @X0Fsubset of the Internet in which the system `Whitehouse' is registered.  @X07│@X17 ║@X07"
  366.     AnsiPos 1, 19
  367.     PrintLn "@X17║ @X07│ @X0F                                                                  @X07END @X07│@X17 ║@X07"
  368.     AnsiPos 1, 20
  369.     PrintLn "@X17║ @X07└─────────────────────────────────────────────────────────────────────────┘@X17 ║@X07"
  370.     AnsiPos 1, 21
  371.     PrintLn "@X17╚═════════════════════════════════════════════════════════════════════════════╝@X07"
  372.     AnsiPos 1, 22
  373.     PrintLn "                                                            "
  374.     AnsiPos 1, 22
  375.     Wait
  376.     Goto LABEL002
  377.     :LABEL007
  378.     AnsiPos 1, 4
  379.     PrintLn "@X0F@X70└─  @X7F100% Viewed  @X70─┘@X07  @X17║ @X0A @X0ESending E-mail to FIDONET                            @X17 ║@X07"
  380.     AnsiPos 1, 5
  381.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  382.     AnsiPos 1, 6
  383.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  384.     AnsiPos 1, 7
  385.     PrintLn "@X17║ @X07│ @X0FFidonet's ID's have the format: ZONE:Net/Node.Point                     @X07│@X17 ║@X07"
  386.     AnsiPos 1, 8
  387.     PrintLn "@X17║ @X07│ @X0FTo send to John Smith 1:2/3.4                                           @X07│@X17 ║@X07"
  388.     AnsiPos 1, 9
  389.     PrintLn "@X17║ @X07│ @X0FAddress you message to `@X0ATO: john.smith@p4.f3.n2.z1.fidonet.org@X0F'         @X07│@X17 ║@X07"
  390.     AnsiPos 1, 10
  391.     PrintLn "@X17║ @X07│ @X0FTo send a message to Mary Smith 1:2/3                                   @X07│@X17 ║@X07"
  392.     AnsiPos 1, 11
  393.     PrintLn "@X17║ @X07│ @X0FAddress your message to `@X0ATO: mary.smith@f3.n2.z1.fidonet.org@X0F'           @X07│@X17 ║@X07"
  394.     AnsiPos 1, 12
  395.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  396.     AnsiPos 1, 13
  397.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  398.     AnsiPos 1, 14
  399.     PrintLn "@X17║ @X07│ @X0F                                                                        @X07│@X17 ║@X07"
  400.     AnsiPos 1, 15
  401.     PrintLn "@X17║ @X07│ @X0F                                                                        @X07│@X17 ║@X07"
  402.     AnsiPos 1, 16
  403.     PrintLn "@X17║ @X07│ @X0F                                                                        @X07│@X17 ║@X07"
  404.     AnsiPos 1, 17
  405.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  406.     AnsiPos 1, 18
  407.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  408.     AnsiPos 1, 19
  409.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  410.     AnsiPos 1, 20
  411.     PrintLn "@X17║ @X07└─────────────────────────────────────────────────────────────────────────┘@X17 ║@X07"
  412.     AnsiPos 1, 21
  413.     PrintLn "@X17╚═════════════════════════════════════════════════════════════════════════════╝@X07"
  414.     AnsiPos 1, 22
  415.     PrintLn "                                                            "
  416.     AnsiPos 1, 22
  417.     Wait
  418.     Goto LABEL002
  419.     AnsiPos 1, 4
  420.     PrintLn "@X0F@X70└─  @X7F100% Viewed  @X70─┘@X07  @X17║ @X0A @X0ESending E-mail to AT&T Mail                          @X17 ║@X07"
  421.     AnsiPos 1, 5
  422.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  423.     AnsiPos 1, 6
  424.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  425.     AnsiPos 1, 7
  426.     PrintLn "@X17║ @X07│ @X0FTo send to AT&T Mail user: !EQUINOX                                     @X07│@X17 ║@X07"
  427.     AnsiPos 1, 8
  428.     PrintLn "@X17║ @X07│ @X0FAddress your message to: @X0A`TO: equinox@attmail.com'                      @X07│@X17 ║@X07"
  429.     AnsiPos 1, 9
  430.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  431.     AnsiPos 1, 10
  432.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  433.     AnsiPos 1, 11
  434.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  435.     AnsiPos 1, 12
  436.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  437.     AnsiPos 1, 13
  438.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  439.     AnsiPos 1, 14
  440.     PrintLn "@X17║ @X07│ @X0F                                                                        @X07│@X17 ║@X07"
  441.     AnsiPos 1, 15
  442.     PrintLn "@X17║ @X07│ @X0F                                                                        @X07│@X17 ║@X07"
  443.     AnsiPos 1, 16
  444.     PrintLn "@X17║ @X07│ @X0F                                                                        @X07│@X17 ║@X07"
  445.     AnsiPos 1, 17
  446.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  447.     AnsiPos 1, 18
  448.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  449.     AnsiPos 1, 19
  450.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  451.     AnsiPos 1, 20
  452.     PrintLn "@X17║ @X07└─────────────────────────────────────────────────────────────────────────┘@X17 ║@X07"
  453.     AnsiPos 1, 21
  454.     PrintLn "@X17╚═════════════════════════════════════════════════════════════════════════════╝@X07"
  455.     AnsiPos 1, 22
  456.     PrintLn "                                                            "
  457.     AnsiPos 1, 22
  458.     Wait
  459.     Goto LABEL002
  460.     :LABEL008
  461.     AnsiPos 26, 17
  462.     PrintLn "@X0B@X4F   Please @XCEmake your selection @X4Ffrom the catagories @X07"
  463.     AnsiPos 26, 18
  464.     PrintLn "@X0B@X4F                ABOVE or on the LEFT.             @X07"
  465.     Delay 100
  466.     Return
  467.     :LABEL009
  468.  
  469. ;------------------------------------------------------------------------------
  470. ;
  471. ; Usage report (before postprocessing)
  472. ;
  473. ; ■ Statements used :
  474. ;
  475. ;    1       End
  476. ;    8       Wait
  477. ;    37      Goto 
  478. ;    3       Let 
  479. ;    173     PrintLn 
  480. ;    13      If 
  481. ;    1       FOpen 
  482. ;    5       FGet 
  483. ;    1       Gosub 
  484. ;    1       Return
  485. ;    1       Delay 
  486. ;    182     AnsiPos 
  487. ;    1       FCloseAll
  488. ;    1       EndFunc
  489. ;
  490. ;
  491. ; ■ Functions used :
  492. ;
  493. ;    1       +
  494. ;    13      ==
  495. ;    1       <>
  496. ;    11      !
  497. ;    1       ||
  498. ;    9       Upper()
  499. ;    1       Chr()
  500. ;    1       Inkey()
  501. ;    1       PPEPath()
  502. ;
  503. ;------------------------------------------------------------------------------
  504. ;
  505. ; Analysis flags : No flag
  506. ;
  507. ;------------------------------------------------------------------------------
  508. ;
  509. ; Postprocessing report
  510. ;
  511. ;    0       For/Next
  512. ;    2       While/EndWhile
  513. ;    7       If/Then or If/Then/Else
  514. ;    1       Select Case
  515. ;
  516. ;------------------------------------------------------------------------------
  517. ;                 AEGiS Corp - Break the routines, code against the machines!
  518. ;------------------------------------------------------------------------------
  519.